home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
truetype
/
amimacro.zip
/
PYBIBLIO.SMM
< prev
next >
Wrap
INI File
|
1993-02-13
|
13KB
|
864 lines
[ver]
4
[sty]
_macro.sty
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
Citizen GSX-140
[port]
LPT1:
[lang]
1
[desc]
Creates APA style bibliographies from Psychlit Searches.
729650632
32
718841980
513
4
0
0
0
0
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[l1]
0
[pg]
4
59 0 14 0 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
114 0 27 0 0 1 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
172 0 6 0 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
183 0 12 1025 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
@Function@<:#212,10800>FUNCTION Bibliography()
<:#216,10800>Onerror endit
<:#216,10800>Oncancel endit
<:#216,10800>Darkmode(1)
<:#216,10800>hourglass(1)
<:#216,10800>c=1
<:#216,10800>DIM ats(9)
<:#216,10800>openfile=GetOpenFileName$()
<:#216,10800>StatusBarMsg("Creating Bibliography for {openfile}")
part=Right$(openfile, 13)
part=strfield$(part,2,"\")
part=Left$(part,5)
hold=strcat$("BIB",part)
<:#216,10800>bibfile=query$("Enter the Name for the Bibliography Reference File",hold)
<:#216,10800>Type( "<[>CTRLHome]")
<:#216,10800>Done=Replace(0,0,5,"AU:","")
<:#216,10800>if done = -7
<:#216,10800> goto endit
<:#216,10800>Endif
<:#216,10800>StatusBarMsg("Working on reference # {c}")
<:#216,10800>Type( "<[>Right]<[>CTRLSHIFTDown]" )
<:#216,10800>au=curshade$()
<:#216,10800>for a = 1 to 9
<:#216,10800> ats(a)=strfield$(au,a,";")
<:#216,10800> if ats(a) = -1
<:#216,10800> l = a - 1
<:#216,10800> break
<:#216,10800> endif
<:#216,10800>next
<:#216,10800>for x = 1 to l
<:#216,10800> ln=strfield$(ats(x),1,"-")
<:#216,10800> fi=strfield$(ats(x),2,"-")
<:#216,10800> si=strfield$(ats(x),3,"-")
<:#216,10800> If si = -1
<:#216,10800> hold = 1
<:#216,10800> endif
<:#216,10800> fi=left$(fi,1)
<:#216,10800> si=left$(si,1)
<:#216,10800> If hold = 1
<:#216,10800> ats(x)=strcat$(ln," ",fi,".")
<:#216,10800> Else
<:#216,10800> ats(x)=strcat$(ln," ",fi,". ",si,".")
<:#216,10800> endif
<:#216,10800> hold=0
<:#216,10800>next
<:#216,10800>for x = 1 to l
<:#216,10800> if x = l - 1
<:#216,10800> author=strcat$(author,ats(x),", & ")
<:#216,10800> elseif x = l
<:#216,10800> author=strcat$(author,ats(x)," ")
<:#216,10800> else
<:#216,10800> author=strcat$(author,ats(x),", ")
<:#216,10800> endif
<:#216,10800>next
<:#216,10800>Type("<[>Left]<[>CTRLDown]<[>CTRLDown]<[>CTRLDown]<[>CTRLDown]<[>CTRLSHIFTLeft]")
<:#216,10800>year=curshade$()
<:#216,10800>Type( "<[>CTRLUp]<[>CTRLUp]<[>CTRLUp]<[>CTRLUp]<[>CTRLUp]<[>CTRLRight]<[>CTRLRight]" )
<:#216,10800>Type( "<[>CTRLSHIFTDown]" )
<:#216,10800>ti=curshade$()
<:#216,10800>Type( "<[>CTRLDown]<[>CTRLDown]<[>CTRLDown]<[>Home]<[>CTRLRight]<[>CTRLRight]<[>CTRLSHIFTDown]" )
<:#216,10800>jn=curshade$()
<:#216,10800>jnt=strfield$(jn,1,";")
<:#216,10800>Type("<[>CTRLUp]")
<:#216,10800>Done=Replace(0,0,5,"Vol","")
<:#216,10800>Type ("<[>Right]<[>CTRLSHIFTDown]" )
<:#216,10800>vp=curshade$()
<:#216,10800>vol=strfield$(vp,1," ")
<:#216,10800>pg=strfield$(vp,2," ")
@Function@<:#212,10800>Open:
<:#216,10800>StatusBarMsg("Opening a new file: {bibfile}.SAM")
<:#216,10800>New("_Biblio.sty" 1 0 )
<:#216,10800>Type( "{openfile}<[>Enter]<[>F4]" )
<:#432,10800>Type( "<[>CTRLHome]<[>end]<[>CTRLLeft]<[>CTRLLeft]<[>CTRLLeft]<[>CTRLSHIFTHome]<[>Del]Bibliography for <[>Home]<[>SHIFTEnd]" )
<:#216,10800>Title=curshade$()
<:#216,10800>GotoCmd(4 2 2 )
<:#216,10800>Type( "{title}<[>Enter]" )
<:#216,10800>PageNumber("Page " 1 1 "1" )
<:#216,10800>Type( "<[>CTRLEnd]" )
<:#216,10800>Type("{author}<[>SHIFTHome]")
<:#216,10800>Replace(0,0,1024,"-"," ")
<:#216,10800>Type("<[>Right]<[>CTRLEnd]")
<:#216,10800>Type("({year}). {ti} <[>Enter]")
<:#216,10800>Italic (1)
<:#216,10800>Type ("{jnt}")
<:#216,10800>Italic (0)
<:#216,10800>Type("<[>CTRLSHIFTUp]")
<:#216,10800>Replace(0,0,1024,"-"," ")
<:#216,10800>Type("<[>Home]<[>Backspace]<[>CTRLEnd]")
<:#216,10800>Type (", {vol}, {pg}. (#{c})<[>Enter]")
<:#216,10800>bibfile=strcat$("C:\AMIPRO\SCHOOL\PSYCHLIT\",bibfile,".sam")
<:#216,10800>SaveAs(BIBfile 32 "{title}" "" )
<:#216,10800>StartOfFiles( )
<:#216,10800>NextWindow( )
<:#216,10800>Type( "<[>CTRLpgdn]")
@Function@<:#212,10800>Loop1:
<:#216,10800>Done=Replace(0,0,5,"AU:","")
<:#216,10800>if done = -7
<:#216,10800> goto saveit
<:#216,10800>Endif
<:#216,10800>c=c+1
<:#216,10800>author=""
<:#216,10800>StatusBarMsg("Working on reference # {c}")
<:#216,10800>Type( "<[>Right]<[>CTRLSHIFTDown]" )
<:#216,10800>au=curshade$()
<:#216,10800>for a = 1 to 9
<:#216,10800> ats(a)=strfield$(au,a,";")
<:#216,10800> if ats(a) = -1
<:#216,10800> l = a - 1
<:#216,10800> break
<:#216,10800> endif
<:#216,10800>next
<:#216,10800>for x = 1 to l
<:#216,10800> ln=strfield$(ats(x),1,"-")
<:#216,10800> fi=strfield$(ats(x),2,"-")
<:#216,10800> si=strfield$(ats(x),3,"-")
<:#216,10800> If si = -1
<:#216,10800> hold = 1
<:#216,10800> endif
<:#216,10800> fi=left$(fi,1)
<:#216,10800> si=left$(si,1)
<:#216,10800> If hold = 1
<:#216,10800> ats(x)=strcat$(ln," ",fi,".")
<:#216,10800> Else
<:#216,10800> ats(x)=strcat$(ln," ",fi,". ",si,".")
<:#216,10800> endif
<:#216,10800> hold=0
<:#216,10800>next
<:#216,10800>for x = 1 to l
<:#216,10800> if x = l - 1
<:#216,10800> author=strcat$(author,ats(x),", & ")
<:#216,10800> elseif x = l
<:#216,10800> author=strcat$(author,ats(x)," ")
<:#216,10800> else
<:#216,10800> author=strcat$(author,ats(x),", ")
<:#216,10800> endif
<:#216,10800>next
<:#216,10800>Type("<[>Left]<[>CTRLDown]<[>CTRLDown]<[>CTRLDown]<[>CTRLDown]<[>CTRLSHIFTLeft]")
<:#216,10800>year=curshade$()
<:#216,10800>Type( "<[>CTRLUp]<[>CTRLUp]<[>CTRLUp]<[>CTRLUp]<[>CTRLUp]<[>CTRLRight]<[>CTRLRight]" )
<:#216,10800>Type( "<[>CTRLSHIFTDown]" )
<:#216,10800>ti=curshade$()
<:#216,10800>Type( "<[>CTRLDown]<[>CTRLDown]<[>CTRLDown]<[>Home]<[>CTRLRight]<[>CTRLRight]<[>CTRLSHIFTDown]" )
<:#216,10800>jn=curshade$()
<:#216,10800>jnt=strfield$(jn,1,";")
<:#216,10800>Type("<[>CTRLUp]")
<:#216,10800>Done=Replace(0,0,5,"Vol","")
<:#216,10800>Type ("<[>Right]<[>CTRLSHIFTDown]" )
<:#216,10800>vp=curshade$()
<:#216,10800>vol=strfield$(vp,1," ")
<:#216,10800>pg=strfield$(vp,2," ")
<:#216,10800>NextWindow( )
<:#216,10800>Type("{author}<[>SHIFTHome]")
<:#216,10800>Replace(0,0,1024,"-"," ")
<:#216,10800>Type("<[>Right]<[>CTRLEnd]")
<:#216,10800>Type("({year}). {ti} <[>Enter]")
<:#216,10800>Italic (1)
<:#216,10800>Type ("{jnt}")
<:#216,10800>Italic (0)
<:#216,10800>Type("<[>CTRLSHIFTUp]")
<:#216,10800>Replace(0,0,1024,"-"," ")
<:#216,10800>Type("<[>Home]<[>Backspace]<[>CTRLEnd]")
<:#216,10800>Type (", {vol}, {pg}. (#{c})<[>Enter]")
<:#216,10800>StartOfFiles( )
<:#216,10800>NextWindow( )
<:#216,10800>Type( "<[>CTRLpgdn]")
<:#216,10800>goto loop1
@Function@<:#212,10800>saveit:
<:#216,10800>statusBarMsg("Saving Biblio.sam")
<:#216,10800>NextWindow( )
<:#216,10800>Type( "<[>CTRLHome]" )
<:#216,10800>Replace(0 0 1042 ".." "." )
<:#216,10800>Save()
<:#216,10800>statusBarMsg("Sorting Biblio.sam")
<:#216,10800>Type( "<[>Down]<[>Home]<[>CTRLSHIFTEnd]" )
<:#216,10800>Sort(1 2 1 1 40 4427 )
<:#216,10800>Type( "<[>CTRLHome]" )
<:#216,10800>statusBarMsg("Saving Biblio.sam")
<:#216,10800>Save()
@Function@<:#212,10800>Endit:
<:#216,10800>statusBarMsg("")
<:#216,10800>darkmode(0)
<:#216,10800>hourglass(0)
<:#216,10800>END FUNCTION
>
[Embedded]
00008023
>
[macsum] 1
Bibliography 0 0 24 0
[macse]
14 Bibliography
20 00004516
19 00004516
0 292 1
0 296 1
5 1
8 1
5 9
21 2 [X]
0 267
13
8 3
0 789 "Creating Bibliography for {3}"
0 807 "{3}" 13
13
8 4
0 20 "{4}" 2 "\"
13
8 4
0 806 "{4}" 5
13
8 4
0 16 "BIB" "{4}"
13
8 5
0 1 "Enter the Name for the Bibliography Reference File" "{5}"
13
8 6
0 6 "[16420]"
2 488 1 0 0 5 "AU:" ""
13
8 7
6 7
5 -7
18 0
11 00000408
10 00004516
0 789 "Working on reference # {1}"
0 6 "[39][20520]"
0 24
13
8 8
5 1
8 9
5 9
6 9
18 2
12 00000563
10 00000683
5 1
6 9
3 0
8 9
10 00000488
6 9
0 20 "{8}" "{9}" ";"
13
23 2
6 9
22 2
5 -1
18 0
11 00000670
6 9
5 1
3 1
8 10
10 00000683
10 00000530
5 1
8 11
6 10
6 11
18 2
12 00000773
10 00001145
5 1
6 11
3 0
8 11
10 00000694
6 11
22 2
0 20 [X] 1 "-"
13
8 12
6 11
22 2
0 20 [X] 2 "-"
13
8 13
6 11
22 2
0 20 [X] 3 "-"
13
8 14
6 14
5 -1
18 0
11 00000928
5 1
8 5
0 806 "{13}" 1
13
8 13
0 806 "{14}" 1
13
8 14
6 5
5 1
18 0
11 00001066
6 11
0 16 "{12}" " " "{13}" "."
13
23 2
10 00001122
6 11
0 16 "{12}" " " "{13}" ". " "{14}" "."
13
23 2
5 0
8 5
10 00000738
5 1
8 11
6 10
6 11
18 2
12 00001235
10 00001480
5 1
6 11
3 0
8 11
10 00001156
6 11
6 10
5 1
3 1
18 0
11 00001335
6 11
22 2
0 16 "{15}" [X] ", & "
13
8 15
10 00001467
6 11
6 10
18 0
11 00001423
6 11
22 2
0 16 "{15}" [X] " "
13
8 15
10 00001467
6 11
22 2
0 16 "{15}" [X] ", "
13
8 15
10 00001200
0 6 "[37][16424][16424][16424][16424][20517]"
0 24
13
8 16
0 6 "[16422][16422][16422][16422][16422][16423][16423]"
0 6 "[20520]"
0 24
13
8 17
0 6 "[16424][16424][16424][36][16423][16423][20520]"
0 24
13
8 18
0 20 "{18}" 1 ";"
13
8 19
0 6 "[16422]"
2 488 1 0 0 5 "Vol" ""
13
8 7
0 6 "[39][20520]"
0 24
13
8 20
0 20 "{20}" 1 " "
13
8 21
0 20 "{20}" 2 " "
13
8 22
0 789 "Opening a new file: {6}.SAM"
2 101 1 "_Biblio.sty" 1 0
0 6 "{3}[13][115]"
0 6 "[16420][35][16421][16421][16421][20516][46]Bibliography for [36][4131]"
0 24
13
8 23
2 452 1 4 2 2
0 6 "{23}[13]"
2 356 1 "Page " 1 1 "1"
0 6 "[16419]"
0 6 "{15}[4132]"
2 488 1 0 0 1024 "-" " "
0 6 "[39][16419]"
0 6 "({16}). {17} [13]"
2 255 1 1
0 6 "{19}"
2 255 1 0
0 6 "[20518]"
2 488 1 0 0 1024 "-" " "
0 6 "[36][8][16419]"
0 6 ", {21}, {22}. (#{1})[13]"
0 16 "C:\AMIPRO\SCHOOL\PSYCHLIT\" "{6}" ".sam"
13
8 6
2 104 1 "{6}" 32 "{23}" ""
2 528 1
2 727 1
0 6 "[16418]"
2 488 1 0 0 5 "AU:" ""
13
8 7
6 7
5 -7
18 0
11 00002533
10 00004302
6 1
5 1
3 0
8 1
7 ""
8 15
0 789 "Working on reference # {1}"
0 6 "[39][20520]"
0 24
13
8 8
5 1
8 9
5 9
6 9
18 2
12 00002720
10 00002840
5 1
6 9
3 0
8 9
10 00002645
6 9
0 20 "{8}" "{9}" ";"
13
23 2
6 9
22 2
5 -1
18 0
11 00002827
6 9
5 1
3 1
8 10
10 00002840
10 00002687
5 1
8 11
6 10
6 11
18 2
12 00002930
10 00003302
5 1
6 11
3 0
8 11
10 00002851
6 11
22 2
0 20 [X] 1 "-"
13
8 12
6 11
22 2
0 20 [X] 2 "-"
13
8 13
6 11
22 2
0 20 [X] 3 "-"
13
8 14
6 14
5 -1
18 0
11 00003085
5 1
8 5
0 806 "{13}" 1
13
8 13
0 806 "{14}" 1
13
8 14
6 5
5 1
18 0
11 00003223
6 11
0 16 "{12}" " " "{13}" "."
13
23 2
10 00003279
6 11
0 16 "{12}" " " "{13}" ". " "{14}" "."
13
23 2
5 0
8 5
10 00002895
5 1
8 11
6 10
6 11
18 2
12 00003392
10 00003637
5 1
6 11
3 0
8 11
10 00003313
6 11
6 10
5 1
3 1
18 0
11 00003492
6 11
22 2
0 16 "{15}" [X] ", & "
13
8 15
10 00003624
6 11
6 10
18 0
11 00003580
6 11
22 2
0 16 "{15}" [X] " "
13
8 15
10 00003624
6 11
22 2
0 16 "{15}" [X] ", "
13
8 15
10 00003357
0 6 "[37][16424][16424][16424][16424][20517]"
0 24
13
8 16
0 6 "[16422][16422][16422][16422][16422][16423][16423]"
0 6 "[20520]"
0 24
13
8 17
0 6 "[16424][16424][16424][36][16423][16423][20520]"
0 24
13
8 18
0 20 "{18}" 1 ";"
13
8 19
0 6 "[16422]"
2 488 1 0 0 5 "Vol" ""
13
8 7
0 6 "[39][20520]"
0 24
13
8 20
0 20 "{20}" 1 " "
13
8 21
0 20 "{20}" 2 " "
13
8 22
2 727 1
0 6 "{15}[4132]"
2 488 1 0 0 1024 "-" " "
0 6 "[39][16419]"
0 6 "({16}). {17} [13]"
2 255 1 1
0 6 "{19}"
2 255 1 0
0 6 "[20518]"
2 488 1 0 0 1024 "-" " "
0 6 "[36][8][16419]"
0 6 ", {21}, {22}. (#{1})[13]"
2 528 1
2 727 1
0 6 "[16418]"
10 00002457
0 789 "Saving Biblio.sam"
2 727 1
0 6 "[16420]"
2 488 1 0 0 1042 ".." "."
2 103 1
0 789 "Sorting Biblio.sam"
0 6 "[40][36][20515]"
2 456 1 1 2 1 1 40 4427
0 6 "[16420]"
0 789 "Saving Biblio.sam"
2 103 1
0 789 ""
0 292 0
0 296 0
6 0
15
9
00008048